home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Server / timeout.al < prev   
Encoding:
Text File  |  2008-11-04  |  497 b   |  22 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Server.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Server;
  5.  
  6. #line 2103 "blib/lib/RPC/XML/Server.pm (autosplit into blib/lib/auto/RPC/XML/Server/timeout.al)"
  7. sub timeout
  8. {
  9.     my $self    = shift;
  10.     my $timeout = shift;
  11.  
  12.     my $old_timeout = $self->{__timeout};
  13.     if ($timeout)
  14.     {
  15.         $self->{__timeout} = $timeout;
  16.     }
  17.     return $old_timeout;
  18. }
  19.  
  20. 1;
  21. # end of RPC::XML::Server::timeout
  22.